(feedmail-deduce-address-list): Avoid add-to-list on local variables.

Author:

* lisp/mail/feedmail.el (feedmail-deduce-address-list):
Avoid add-to-list on local variables.

diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index eed664d088e2590bd11502d5bda81ace833142ce..1402db4095185b0f7f4d918490b60505d12bfb5a 100644 (file)
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -3147,7 +3147,7 @@ been weeded out."
                (setq simple-address (substring address-blob (match-beginning 2) (match-end 2)))
                (setq address-blob (replace-match "" t t address-blob))
                (if (not (member simple-address address-list))
-                   (add-to-list 'address-list simple-address)))
+                   (push simple-address address-list)))
              ))
          (kill-buffer nil)))
     (identity address-list)))